home *** CD-ROM | disk | FTP | other *** search
/ stazsoftware.com / www.stazsoftware.com.tar / www.stazsoftware.com / futurebasic / sample-code / helpProj.sit / Help Project Folder / MICN.INCL < prev    next >
Text File  |  2005-04-15  |  3KB  |  174 lines
  1. '~'1
  2. /* 
  3.      MICN filter written for My Calendar
  4.      Adapted for use with FB^3 
  5.      Created Feb 03 Date { 2/11/03 }
  6. */
  7. '~'1
  8.  
  9.  
  10. END GLOBALS
  11.  
  12. GOTO "MICN.FLTR"
  13. '~'1
  14.  
  15.  
  16.  
  17. CLEAR LOCAL
  18. dim cicnHndl&,elem
  19. '~'2
  20. LOCAL FN MICNclick
  21. '~'2
  22. LONG IF gObjUserTp& = _"MICN"
  23. fn pgBlackAndWhite
  24. elem = gWhichObjElem
  25. FN pGgetObj(WINDOW(_outputWClass),1)
  26. GetCPixel(1,1,@gObjBRed)
  27. CALL RGBFORECOLOR(gObjBRed)
  28. FN pGgetObj(WINDOW(_outputWClass),elem)
  29. cicnHndl& = FN GETCICON(gObjUser1)
  30. paintRECT(gObjT)
  31. OFFSETRECT(gObjT,3,3)
  32. PLOTCICON(gObjT,cicnHndl&)
  33. FLUSHWINDOWBUFFeR
  34. WHILE FN BUTTON
  35. WEND
  36. paintRECT(gObjT)
  37. OFFSETRECT(gObjT,-3,-3)
  38. PLOTCICON(gObjT,cicnHndl&)
  39. FLUSHWINDOWBUFFeR
  40. DISPOSCICON(cicnHndl&)
  41. FORECOLOR(_Blackcolor)
  42. insetrect(gObjT,-3,-3)
  43. fn invalrect(gObjT)
  44. END IF
  45. END FN
  46.  
  47.  
  48. CLEAR LOCAL
  49. dim picrect as rect
  50. dim Hndl&
  51. DIM x,y,pct,h,w
  52. dim @fnt
  53. DIM t$
  54. '~'2
  55. LOCAL FN showtool
  56. '~'2
  57. Hndl& = FN getresource(_"PICT",gObjUser1)
  58. gObjUser1 = 1
  59. gObjUser2 = 1
  60. long if Hndl&
  61. insetrect(gObjT,1,1)
  62. picrect;8  = @Hndl&..picFrame%
  63. w = picrect.right - picrect.left
  64. h = picrect.bottom - picrect.top
  65. x = gObjL + (gObjR-gObjL)/2 - w/2
  66. y = gObjT + (gObjB-gObjT)/2 - h/2
  67. picture (x,y),Hndl&
  68. end if
  69. END FN
  70.  
  71.  
  72. CLEAR LOCAL
  73. dim cicnHndl&
  74. DIM x,y
  75. dim @fnt
  76. DIM t$
  77. '~'2
  78. LOCAL FN PlotIconTool
  79. '~'2
  80. cicnHndl& = FN GETCICON(gObjUser1)
  81. PLOTCICON(gObjT,cicnHndl&)
  82. DISPOSCICON(cicnHndl&)
  83. t$ = STR#(_baseID,gObjElement)
  84. getfnum("Arial Bold",fnt)
  85. text fnt,9,,1
  86. x = (gObjL + (gObjR-gObjL)/2) - FN STRINGWIDTH(t$)/2
  87. y = gObjB + USR FONTHEIGHT
  88. forecolor(_blackcolor)
  89. PRINT%(x,y)t$
  90. END FN
  91.  
  92.  
  93.  
  94.  
  95.  
  96. '~'2
  97. LOCAL FN I3cursor
  98. '~'2
  99. DIM where,inICN3,newCurs,oldCurs
  100. DIM oldPoint&,oldClass,oldOut,obj,wRef
  101. DIM @wPtr&
  102.  
  103. where = FN FINDWINDOW(gWhereY,wPtr&)
  104. LONG IF where = _inContent
  105. oldCurs     = SYSTEM(_lastCurs)
  106. newCurs     = oldCurs
  107. inICN3      = _false
  108.  
  109. LONG IF fn IsWindowHilited(wptr&)///PEEK(wPtr&+_wHilited)
  110. wRef = USR WPTR2WNUM(wPtr&)
  111. LONG IF wRef
  112. oldClass    = gWhichClass
  113. oldPoint&   = gMouseLong&
  114. gMouseLong& = gWhereLong&
  115.  
  116. oldOut      = WINDOW(_outputWnd)
  117. WINDOW OUTPUT wRef
  118. gWhichClass = WINDOW(_outputWClass)
  119. CALL GLOBALTOLOCAL(gMouseLong&)
  120. WINDOW OUTPUT oldOut
  121.  
  122. obj = FN pGpointInObj
  123. LONG IF obj
  124. FN pGgetObj(gWhichClass,obj)
  125. LONG IF gObjUserTp& = _"ICN3"
  126. inICN3 = (gObjUser1 = 1)
  127. END IF
  128. '~':
  129. LONG IF gObjUserTp& = _"MICN" or gObjUserTp& = _"Tool"
  130. inICN3 = _TRUE
  131. END IF
  132. '~':
  133. END IF
  134.  
  135. gMouseLong& = oldPoint&
  136. gWhichClass = oldClass
  137. END IF
  138. END IF
  139. LONG IF inICN3
  140. newCurs = _fingerCursor
  141. gI3CursorFlag   = _zTrue
  142. XELSE
  143. LONG IF gI3CursorFlag
  144. IF oldCurs = _fingerCursor THEN newCurs = _arrowCursor
  145. gI3CursorFlag = _false
  146. END IF
  147. END IF
  148. IF oldCurs <> newCurs THEN CURSOR newCurs
  149. END IF
  150.  
  151. END FN
  152.  
  153.  
  154.  
  155. "MICN.FLTR"
  156.  
  157. '~'2"MICN.FLTR"
  158. '~'2
  159. SELECT gLongAction&
  160. CASE _oNull
  161. FN I3cursor
  162. CASE _oUserUpdate
  163. IF gObjUserTp& = _"MICN" then FN PlotIconTool
  164. IF gObjUserTp& = _"Tool" then fn showtool
  165. CASE _oUserClick
  166. IF gObjUserTp& = _"MICN" then FN MICNclick
  167. END SELECT
  168. '~'2
  169.  
  170.  
  171. IF 0 THEN RETURN
  172.  
  173.  
  174.